'declare Public WithEvents vCompany As SAPbobsCOM.Company ' event handler Private Sub VCompany_ProgressIndicator(ByVal MaxValue As Long, ByVal CurrentValue As Long) MsgBox("Max Value=" + Str(MaxValue) + ", Current Value = " + Str(CurrentValue)) End Sub